home *** CD-ROM | disk | FTP | other *** search
- 100 OPEN2,8,2,"0:BUDGET DATA 2,S,R"
- 110 FORTY=1TO192
- 120 INPUT#2,Y$(TY)
- 130 INPUT#2,Y(TY)
- 140 NEXTTY
- 150 FORTY=1TO192
- 160 INPUT#2,H$(TY)
- 170 INPUT#2,H(TY)
- 180 NEXTTY
- 190 INPUT#2,GT$
- 200 FORTY=1TO12
- 210 INPUT#2,YM$(TY)
- 220 INPUT#2,YM(TY)
- 230 NEXTTY
- 240 FORTY=1TO12
- 250 INPUT#2,HM$(TY)
- 260 INPUT#2,HM(TY)
- 270 NEXTTY
- 280 FORTY=1TO16
- 290 INPUT#2,YS$(TY)
- 300 INPUT#2,YS(TY)
- 310 NEXTTY
- 320 FORTY=1TO16
- 330 INPUT#2,HS$(TY)
- 340 INPUT#2,HS(TY)
- 350 NEXTTY:CLOSE2:A$=STR$(CM+4):AC$=RIGHT$(A$,2)
- 360 LA$="":LB$=" ":LC$=" ":LD$=" ":LE$=" ":PE$=" ACTUAL ":PE=1
- 370 LF$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":LK$="":SM$="SUB [205] MONTH"
- 380 ST$="SUBT":MT$="MONTHLY TOT":MI=12
- 390 IFAM=0THEN470
- 400 PRINT"[147]YOU HAVE AMENDED SOME FIGURES IN THE"
- 410 PRINT"PROGRAM . DO YOU WISH TO STORE THEM "
- 420 PRINT"(Y)ES OR (N)0 ?"
- 430 GETQU$:IFQU$=""THEN430
- 440 IFQU$="N"THENPRINT"ARE YOU SURE YOU DO NOT WANT TOO (Y/N) ?":GOTO530
- 450 IFQU$="Y"THEN480
- 460 GOTO430
- 470 GOTO760
- 480 PRINT" PLACE'DATA'DISC IN THE DISC DRIVE"
- 490 PRINT"PRESS SPACE BAR [146] TO SAVE THE DATA"
- 500 GETQU$:IFQU$=""THEN500
- 510 IFQU$<>" "THEN500
- 520 PRINT"[147]SAVING BUDGET DATA[144]":GOTO560
- 530 GETQU$:IFQU$="N"THEN400
- 540 IFQU$="Y"THEN470
- 550 GOTO530
- 560 OPEN2,8,2,"@0:BUDGET DATA,S,W"
- 570 PRINT#2,SR
- 580 PRINT#2,CM
- 590 FORA=1TO192
- 600 PRINT#2,Y$(A)
- 610 NEXTA:FORA=1TO192:PRINT#2,H$(A):NEXT:FORA=1TO12
- 620 PRINT#2,SR$(A)
- 630 PRINT#2,SS$(A)
- 640 PRINT#2,SU$(A)
- 650 NEXT A
- 660 FORB=1TO16
- 670 PRINT#2,BA$(B)
- 680 PRINT#2,BB$(B)
- 690 PRINT#2,BC$(B)
- 700 NEXT B
- 710 PRINT#2,GT(1)
- 720 PRINT#2,GT(2)
- 730 PRINT#2,GT(3)
- 740 CLOSE 2
- 750 PRINT"[158]":GOTO470
- 760 PRINT"[147]BUDGET CALC[157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163]"
- 770 PRINT"PRINT OUT:-":PRINT" [164][164][164][164]";
- 780 PRINT"ACTUAL FIGURES...................... F1 [146]"
- 790 PRINT" [164][164][164][164]";
- 800 PRINT"ACTUAL & ESTIMATED FIGURES.......... F3 [146]"
- 810 PRINT" [164][164][164][164]";
- 820 PRINT"ESTIMATED FIGURES ONLY.............. F5 [146]"
- 830 PRINT" [164][164][164][164]";
- 840 PRINT"RETURN TO THE SPREADSHEET........... F7 [146]"
- 850 PRINT:PRINT" [164][164][164]";
- 860 PRINT"END BUDGET CALC...................... _ [146]"
- 870 PRINT"WHAT IS YOUR OPTION?"
- 880 GETQX$:IFQX$=""THEN880
- 890 IFQX$="[136]"THENPRINT"[145] PLEASE WAIT":LO=1:LOAD"BUDGET CALC",8,1
- 900 FORTY=1TO192:IFVAL(Y$(TY))<>Y(TY)THENY$(TY)="000":Y(TY)=0:NEXTTY
- 910 FORTY=1TO192:IFVAL(H$(TY))<>H(TY)THENH$(TY)="000":H(TY)=0:NEXTTY
- 920 IFQX$="_"THENPRINT"[147]":GOTO1110
- 930 IFQX$="[133]"ORQX$="[134]"ORQX$="[135]"THEN950
- 940 GOTO880
- 950 GOTO970
- 960 END
- 970 PRINT"PLEASE SET UP PAPER FEED AND TURN ON"
- 980 PRINT" THE PRINTER!"
- 990 FORTP=1TO2000:NEXTTP
- 1000 FORT=1TO2000:NEXT:PRINT"PRESS ANY KEY TO CONTINUE"
- 1010 GET QU$:IFQU$=""THEN1010
- 1020 PRINT"[145] [145]"
- 1030 OPEN3,4:PRINT#3:IFST=-128THEN1050
- 1040 CLOSE3:GOTO1180
- 1050 CLOSE3:PRINT"[147] B U D G E T P R O G R A M M E"
- 1060 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
- 1070 PRINT"PLEASE TURN ON THE PRINTER IF YOU WANT"
- 1080 PRINT"A PRINTOUT AND PRESS 'SPACE BAR'"
- 1090 PRINT"OR ANY OTHER TO END"
- 1100 GETWQ$:IFWQ$=""THEN1100
- 1110 PRINT"[147] B U D G E T P R O G R A M M E"
- 1120 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
- 1130 PRINT"[164][164][164][164][164][164][164] [164][164][164][164][164] [164] [164]"
- 1140 PRINT"SYSTEMSRESET[146] ? ( Y[146] / N[146] )"
- 1150 GETQA$:IFQA$=""THEN1150
- 1160 IFQA$="Y"THENSYS64738
- 1170 GOTO390
- 1180 IFQX$="[135]"THEN1440
- 1190 IFQX$="[134]"THEN1660
- 1200 IFQX$="[133]"THEN1210
- 1210 FORTY=1TO192
- 1220 IFY$(TY)="000"THENY$(TY)=" "
- 1230 NEXTTY
- 1240 FORZZ=1TO16:S$(ZZ)=MID$(J$(ZZ),1,13):NEXTZZ
- 1250 OPEN3,4:PRINT#3,CHR$(14)" BUDGET PLAN FOR"CM+3;"/";AC$;CHR$(15);" (ACTUAL)";
- 1260 PRINT#3,":";CHR$(14);MZ$;CHR$(15):CMD3
- 1270 PRINT"[147]";SM$;" ";M$(1);" ";M$(2);" ";M$(3);" ";M$(4);" ";M$(5);" ";
- 1280 PRINTM$(6);" ";M$(7);" ";M$(8);" ";M$(9);" ";M$(10);" "M$(11);" ";
- 1290 PRINTM$(12);" ";ST$
- 1300 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
- 1310 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
- 1320 F=-11:FORS=1TO16:F=F+12:NB(S)=NB(S)+1
- 1330 PRINTS$(S);:FORSP=1TO(NB(S)+NC(S)):PRINT" ";:NEXTSP:PRINT" ";:FORPO=FTOF+11
- 1340 PRINTY$(PO);" ";
- 1350 NEXTPO:PRINT" ";YS$(S):PRINT:NEXTS
- 1360 GOTO1370
- 1370 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
- 1380 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
- 1390 PRINTMT$;LB$;:FORPO=1TO11:PRINTYM$(PO);" ";:NEXTPO:PRINTYM$(12);
- 1400 PRINTCHR$(14)GT$
- 1410 PRINTCHR$(15)
- 1420 PRINT#3:CLOSE3
- 1430 GOTO390
- 1440 FORTY=1TO192
- 1450 IFH$(TY)="000"THENH$(TY)=" "
- 1460 NEXTTY
- 1470 FORZZ=1TO16:S$(ZZ)=MID$(J$(ZZ),1,13):NEXTZZ
- 1480 OPEN3,4:PRINT#3,CHR$(14)" BUDGET PLAN FOR"CM+3;"/";AC$;CHR$(15)"( ESTIMATED )";
- 1490 PRINT#3,CHR$(14);" :";MZ$;CHR$(15):CMD3
- 1500 PRINT"[147]";SM$;" ";M$(1);" ";M$(2);" ";M$(3);" ";M$(4);" ";M$(5);" ";
- 1510 PRINTM$(6);" ";M$(7);" ";M$(8);" ";M$(9);" ";M$(10);" "M$(11);" ";
- 1520 PRINTM$(12);" ";ST$
- 1530 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
- 1540 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
- 1550 F=-11:FORS=1TO16:F=F+12:NB(S)=NB(S)+1
- 1560 PRINTS$(S);:FORSP=1TO(NB(S)+NC(S)):PRINT" ";:NEXTSP:PRINTLA$;:FORPO=FTOF+11:PRINTH$(PO);" ";
- 1570 NEXTPO:PRINT" ";HS$(S):PRINT:NEXTS
- 1580 GOTO1590
- 1590 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
- 1600 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
- 1610 PRINTMT$;" ";LB$;:FORPO=1TO11:PRINTHM$(PO);" ";:NEXTPO:PRINTHM$(12);
- 1620 PRINTCHR$(14)GH$
- 1630 PRINTCHR$(15)
- 1640 PRINT#3:CLOSE3
- 1650 GOTO760
- 1660 FORTY=1TO192
- 1670 IFH$(TY)="000"THENH$(TY)=" "
- 1680 IFY$(TY)="000"THENY$(TY)=" "
- 1690 NEXTTY
- 1700 FORZZ=1TO16:S$(ZZ)=MID$(J$(ZZ),1,13):NEXTZZ
- 1710 OPEN3,4:PRINT#3,CHR$(14)" BUDGET PLAN FOR"CM+3;"/";AC$;CHR$(15)" (ACTUAL/ESTI)";
- 1720 PRINT#3,CHR$(14);" :";MZ$;CHR$(15):CMD3
- 1730 PRINT"[147]";SM$;" ";M$(1);" ";M$(2);" ";M$(3);" ";M$(4);" ";M$(5);" ";
- 1740 PRINTM$(6);" ";M$(7);" ";M$(8);" ";M$(9);" ";M$(10);" "M$(11);" ";
- 1750 PRINTM$(12);" ";ST$
- 1760 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
- 1770 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
- 1780 F=-11:FORS=1TO16:F=F+12:NB(S)=NB(S)+1:PRINT
- 1790 PRINTS$(S);:FORSP=1TO(NB(S)+NC(S)):PRINT" ";:NEXTSP:PRINTLB$;:FORPO=FTOF+11:PRINTY$(PO);" ";
- 1800 NEXTPO:PRINT" ";YS$(S)
- 1810 PRINT" ";:FORRO=FTOF+11:PRINTH$(RO);" ";:NEXTRO:PRINT" ";HS$(S):NEXTS
- 1820 GOTO1830
- 1830 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
- 1840 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
- 1850 PRINTMT$;" ";LB$;:FORPO=1TO11:PRINTYM$(PO);" ";:NEXTPO:PRINTYM$(12);
- 1860 PRINTCHR$(14)GT$
- 1870 PRINTCHR$(15)
- 1880 PRINT" ";LB$;:FORPO=1TO11:PRINTHM$(PO);" ";:NEXTPO:PRINTHM$(12);
- 1890 PRINTCHR$(14)GH$
- 1900 PRINTCHR$(15)
- 1910 PRINT#3:CLOSE3
- 1920 GOTO760
-